home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 April / PCWorld_1999-04_cd.bin / Software / Vyzkuste / LearnVB5 / VB Code / Class 2 / Example2-2.frm (.txt) < prev    next >
Visual Basic Form  |  1998-04-10  |  4KB  |  147 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSavings 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Savings Account"
  5.    ClientHeight    =   3915
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   3150
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    LinkTopic       =   "Form1"
  20.    PaletteMode     =   1  'UseZOrder
  21.    ScaleHeight     =   3915
  22.    ScaleWidth      =   3150
  23.    Begin VB.CommandButton cmdExit 
  24.       Caption         =   "E&xit"
  25.       Height          =   495
  26.       Left            =   840
  27.       TabIndex        =   9
  28.       Top             =   3240
  29.       Width           =   1215
  30.    End
  31.    Begin VB.CommandButton cmdCalculate 
  32.       Caption         =   "&Calculate"
  33.       Height          =   495
  34.       Left            =   840
  35.       TabIndex        =   8
  36.       Top             =   2640
  37.       Width           =   1215
  38.    End
  39.    Begin VB.TextBox txtFinal 
  40.       Height          =   495
  41.       Left            =   1560
  42.       TabIndex        =   7
  43.       Top             =   1920
  44.       Width           =   1215
  45.    End
  46.    Begin VB.TextBox txtMonths 
  47.       Height          =   495
  48.       Left            =   1560
  49.       TabIndex        =   6
  50.       Top             =   1320
  51.       Width           =   1215
  52.    End
  53.    Begin VB.TextBox txtInterest 
  54.       Height          =   495
  55.       Left            =   1560
  56.       TabIndex        =   5
  57.       Top             =   720
  58.       Width           =   1215
  59.    End
  60.    Begin VB.TextBox txtDeposit 
  61.       Height          =   495
  62.       Left            =   1560
  63.       TabIndex        =   4
  64.       Top             =   120
  65.       Width           =   1215
  66.    End
  67.    Begin VB.Label Label4 
  68.       Caption         =   "Final Balance"
  69.       Height          =   495
  70.       Left            =   240
  71.       TabIndex        =   3
  72.       Top             =   1920
  73.       Width           =   1215
  74.    End
  75.    Begin VB.Label Label3 
  76.       Caption         =   "Number of Months"
  77.       Height          =   495
  78.       Left            =   240
  79.       TabIndex        =   2
  80.       Top             =   1320
  81.       Width           =   1215
  82.    End
  83.    Begin VB.Label Label2 
  84.       Caption         =   "Yearly Interest"
  85.       Height          =   495
  86.       Left            =   240
  87.       TabIndex        =   1
  88.       Top             =   720
  89.       Width           =   1215
  90.    End
  91.    Begin VB.Label Label1 
  92.       Caption         =   "Monthly Deposit"
  93.       Height          =   495
  94.       Left            =   240
  95.       TabIndex        =   0
  96.       Top             =   120
  97.       Width           =   1215
  98.    End
  99. Attribute VB_Name = "frmSavings"
  100. Attribute VB_GlobalNameSpace = False
  101. Attribute VB_Creatable = False
  102. Attribute VB_PredeclaredId = True
  103. Attribute VB_Exposed = False
  104. Option Explicit
  105. Dim Deposit As Single
  106. Dim Interest As Single
  107. Dim Months As Single
  108. Dim Final As Single
  109. Const vbKeyDecPt = 46
  110. Private Sub cmdCalculate_Click()
  111. Dim IntRate As Single
  112. 'Read values from text boxes
  113. Deposit = Val(txtDeposit.Text)
  114. Interest = Val(txtInterest.Text)
  115. IntRate = Interest / 1200
  116. Months = Val(txtMonths.Text)
  117. 'Compute final value and put in text box
  118. Final = Deposit * ((1 + IntRate) ^ Months - 1) / IntRate
  119. txtFinal.Text = Format(Final, "#####0.00")
  120. End Sub
  121. Private Sub cmdExit_Click()
  122. End Sub
  123. Private Sub txtDeposit_KeyPress(KeyAscii As Integer)
  124. 'Only allow number keys, decimal point, or backspace
  125. If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
  126.   Exit Sub
  127.   KeyAscii = 0
  128.   Beep
  129. End If
  130. End Sub
  131. Private Sub txtInterest_KeyPress(KeyAscii As Integer)
  132. 'Only allow number keys, decimal point, or backspace
  133. If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
  134.   Exit Sub
  135.   KeyAscii = 0
  136.   Beep
  137. End If
  138. End Sub
  139. Private Sub txtMonths_KeyPress(KeyAscii As Integer)
  140. 'Only allow number keys, decimal point, or backspace
  141. If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
  142.   Exit Sub
  143.   KeyAscii = 0
  144.   Beep
  145. End If
  146. End Sub
  147.